home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / ilisp / illuc19.el < prev    next >
Encoding:
Text File  |  1995-01-26  |  2.1 KB  |  84 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; illuc19.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.7
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995 Marco Antoniotti and Rick Busdiecker
  11. ;;;
  12. ;;; Other authors' names for which this Copyright notice also holds
  13. ;;; may appear later in this file.
  14. ;;;
  15. ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
  16. ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
  17. ;;; mailing list were bugs and improvements are discussed.
  18. ;;;
  19. ;;; ILISP is freely redistributable under the terms found in the file
  20. ;;; COPYING.
  21.  
  22.  
  23.  
  24. ;;;============================================================================
  25. ;;; Functions
  26.  
  27. (defun ilisp-get-input-ring ()
  28.   "Use instead of get-input-ring coming-input-ring or input-ring."
  29.   (if (eq +ilisp-emacs-version-id+ 'lucid-19)
  30.       (get-input-ring)
  31.       ;; else lucid-19-new
  32.       comint-input-ring))
  33.  
  34.  
  35. (defun ilisp-ring-insert (ring input)
  36.   (if (eq +ilisp-emacs-version-id+ 'lucid-19)
  37.       (ring-insert-new ring input)
  38.       (ring-insert ring input)))
  39.  
  40.  
  41. (defun ilisp-temp-buffer-show-function-symbol ()
  42.   'temp-buffer-show-function)
  43.  
  44.  
  45. (defun set-ilisp-temp-buffer-show-function (val)
  46.   (setq temp-buffer-show-function val))
  47.  
  48.  
  49. (defun ilisp-temp-buffer-show-function ()
  50.   temp-buffer-show-function)
  51.  
  52.  
  53. (defun ilisp-input-ring-index ()
  54.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  55.       comint-input-ring-index
  56.       input-ring-index))
  57.  
  58.  
  59. (defun set-ilisp-input-ring-index (n)
  60.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  61.       (setq comint-input-ring-index n)
  62.       (setq input-ring-index n)))
  63.  
  64.  
  65. (defun ilisp-input-ring-size ()
  66.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  67.       comint-input-ring-size
  68.       input-ring-size))
  69.  
  70.  
  71. (defun set-ilisp-input-ring-size (n)
  72.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  73.       (setq comint-input-ring-size n)
  74.       (setq input-ring-size n)))
  75.  
  76.  
  77. ;;============================================================================
  78. ;;; Epilogue
  79.  
  80. (provide 'il-luc19)
  81.  
  82. ;;; end of file -- il-luc19.el --
  83.  
  84.